#!/usr/bin/perl

$|=1;
print("Content-Type: application/octet-stream\r\n\r\n");

print "request method are: 'REQUEST_METHOD'\n";
sleep(5);
print <> if($ENV{'REQUEST_METHOD'} eq 'POST');
